home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
TJTOT10B.ARJ
/
DEMO.EXE
/
arc
/
DEMLS2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-11
|
1KB
|
54 lines
program DemoList2;
{demls2}
Uses DOS, CRT,
totFAST, totLIST, totIO1;
Var
Items : array [1..20] of string[30];
ListWin: ListArrayObj;
procedure FillArray;
{}
begin
Items[1] := 'One';
Items[2] := 'Two';
Items[3] := 'Three';
Items[4] := 'Four';
Items[5] := 'Five';
Items[6] := 'Six';
Items[7] := 'Seven';
Items[8] := 'Eight';
Items[9] := 'Nine';
Items[10] := 'Ten';
Items[11] := 'Eleven';
Items[12] := 'Twelve';
Items[13] := 'Thirteen';
Items[14] := 'Fourteen';
Items[15] := 'Fifteen';
Items[16] := 'Sixteen';
Items[17] := 'Seventeen';
Items[18] := 'Eighteen';
Items[19] := 'Nineteen';
Items[20] := 'Twenty';
end; {FillArray}
begin
Screen.Clear(white,'░'); {paint the screen}
FillArray;
with ListWin do
begin
Init;
AssignList(Items,20,30,true);
SetColWidth(15);
Win^.SetTitle(' Pick a number! ');
Win^.SetSize(24,7,55,18,2);
Win^.SetColors(32,32,47,46);
SetColors(110,32,31);
Go;
Done;
end;
end.